PawelPepe

Hi, I would like to ask you about some help with accessing Cloud Services like Dropbox / Google Drive / Microsoft One Drive. As far as I know, every Cloud gives access by some API. I want to be able to send a file (text file or Image file) into one of this services. Is that possible? I mean: 1. User launches my application 2. Loads an Image (for example bitmap.bmp) 3. Chooses Cloud service provider 4. Uploads file into cloud and generates download link I assume that user has full access to cloud service (has an account, password and all needed authorization data). Have any of you dealt with such an issue? Where can I find some help? Maybe some example code? Where to start? -Pawel

Is it possible to use original client installed on user machine to uplad a file and get download link? For example call OneDrive.exe with some magic parameters?

Uh, it seems it is not easy issue. Thanks. Commercial solutions costs a lot! Thanks for tips... maybe there is some simple open source solution? -Pawel

Hey, I have got a serious problem with detecting Windows Clipboard changes. I am trying to write simple application that detects clipboard changes and offers to user some actions. To make it work I capture the WM_CLIPBOARDUPDATE message (Of course, I first add listening options -> AddClipboardFormatListener(Handle); which I release when exiting the program -> RemoveClipboardFormatListener(Handle);). And it works. I respond when the clipboard has an image (Clipboard.HasFormat(CF_PICTURE)) or text (Clipboard.HasFormat(CF_TEXT)). BUT - apparently this message is sent when I run system services (even though the clipboard contents DO NOT CHANGE), e.g. Computer Management (compmgmt.msc) Event Viewer (eventvwr.msc) Performance Monitor (perfmon.msc) and probably other programs I don't know about. Why!!!!? That is, it only happens when the clipboard has some content (if it is empty, nothing happens). If it has text or an image or anything else - my application receives a message about changing the contents of the clipboard (which is in fact the same - nothing changes). Why do these services send WM_CLIPBOARDUPDATE? Or in other words - what to do to ignore this specific situation (i.e. I receive the message, but I don't want to react - because nothing has changed in the clipboard). Somehow I don't see anything in the Clipboard implementation in Delphi that would help me... Thanks for any help, -Pawel

@Remy Lebeau It works! Thank you! @Brian Evans, @Kas Ob. Thanks for help!

@Remy Lebeau Yes, I will change it and create virtual CreateWnd() and DestroyWnd() methods (I read about it somwhere in StackOverFlow, I think). @Remy Lebeau @Kas Ob. I checked GetClipboardSequenceNumber(). Indeed, it is incremeneted when Clipboard change - but not in our situation, as Clipboard contents is not changing, only message is sent. EDIT: I see your answer, Remy - I think you may have right. Will have to test it more. If not, then will do some comparison. I will have to find some good way to compare last Clipboard Content and every next one. If it differs - make action - if not, ignore. Hmm, maybe I will write it into disk and calculate hash. -Pawel

@Brian Evans @Kas Ob. Thanks, good to know. Yes, I think I will have to think about some compare data system, to check if clipboard data really changed. @Attila Kovacs OK Captain! Here is a simple code that demonstrate the problem: unit Main_Form; interface uses ...; type TMainFrm = class(TForm) ... private procedure MESSAGE_WM_CLIPBOARDUPDATE(var Msg: TMessage); message WM_CLIPBOARDUPDATE; { Private declarations } public { Public declarations } end; implementation {$R *.dfm} uses ...; procedure TMainFrm.MESSAGE_WM_CLIPBOARDUPDATE(var Msg: TMessage); var Success : boolean; RetryCount : integer; begin Inherited; if ALLOW_WM_CLIPBOARDUPDATE = True then begin RetryCount := 0; Success := False; while Success = False do begin try Success := True; if (Clipboard.HasFormat(CF_PICTURE) OR Clipboard.HasFormat(CF_TEXT)) then begin // ACTION!!!! // Unfortunatelly, this is fired even when clipboard content not change - but message is received end; except on E: EClipboardException do begin Inc(RetryCount); if RetryCount < 3 then begin Sleep(RetryCount * 100); end else begin //raise Exception.Create('Cannot set clipboard after three attempts'); end end else begin //raise; // if not a clipboard problem then re-raise end; end; end; end; end; procedure TMainFrm.FormCreate(Sender: TObject); begin AddClipboardFormatListener(Handle); end; procedure TMainFrm.FormDestroy(Sender: TObject); begin RemoveClipboardFormatListener(Handle); end; -Pawel

Hey, I am trying to write simple application that works with Windows Clipboard (capture Clipboard changes (WM_CLIPBOARDUPDATE) and do some actions. Application uses TTrayIcon component. So, I can hide main window in notification area. If user press Print Screen button or copy text into Clipboard my application do some actions. One of the features is to show user a message (with some description text, icon etc) when application is hidden in tray. I do not use TTrayIcon Balloon hint (it is not good for me). Instead, I created second form and display it when clipboard change its content. It works fine, when application main window is visible (on screen). I set some options in form OnShow event and do some animation (to slide from right screen corner) in OnActivate event. It is OK. When application main window is hidded there is a big problem! What I do: Form2.Show; -> OnShow And OnActivate events are fired. BUT, if I show form2 again (second, third time), only OnShow event is fired - OnActivate event is not working! WHY? I hide mainform to Tray: Application.ShowMainForm := False; MainFrm.Hide; ShowWindow(Application.Handle, SW_HIDE); And I show it using: MainFrm.Show; Application.ShowMainForm := True; ShowWindow(Application.Handle, SW_SHOW); Application.BringToFront(); -Pawel

Thanks for help. I think I got it working now. I decided to create form and destroy it each time clipboard is updated. Relying on onShow and onActivate events was not good idea. -Pawel

I am hiding and reshowing Form2 on each message. You are right! Again, you are right (I use default - Application.MainFormOnTaskbar := True). So, now it looks like this. Hiding: MainFrm.Hide; Showing: MainFrm.Show; Application.BringToFront(); Unfortunatelly, nothing has changed. Maybe I will prepare example test app to show what I have and what I want to achieve? I also tried to dynamically create Form2 and destroy it on each message (but I failed with my "animation" and modal window). -Pawel

Hi, I got a problem with TListView and Data. It seems that I got memory leaks, because Data pointers are not released (if I understand it well). Let me show you what I do: Here is a simple TListView (LV_Data). I add few items to the list (Report Style) into 3 Columns. var i : Integer; ListItem : TListItem; PObject : PChar; for i := 0 to 3 do begin // Caption ListItem := AList.Items.Add; ListItem.Caption := 'My Caption' + '_' + Inttostr(i+1); // Language Name ListItem.SubItems.Add('Language' + '_' + Inttostr(i+1)); // User Name ListItem.SubItems.Add('User Name' + '_' + Inttostr(i+1)); // User Data Path PObject := StrAlloc(250); StrPCopy(PObject, 'PATH_TO_USER_DIRECTORY' + '_' + Inttostr(i+1)); ListItem.Data := PObject; end; As you can see, I also add "hidden" data (in this example a path to directory, as string). I can use it in program, without displaying it to user in listview. I can read it in simple way (for examle, in ListView OnClick event:) var sPath : string; if (LV_Data.Items.Count > 0) AND (LV_Data.ItemIndex <> -1) then begin sPath := StrPas(PChar(LV_Data.Items[LV_Data.ItemIndex].Data)); end; Everything works very nice... but, when I close program, I see there are some memory leaks. --------------------------- Unexpected Memory Leak --------------------------- An unexpected memory leak has occurred. The unexpected small block leaks are: 473 - 520 bytes: Unknown x 3 --------------------------- OK --------------------------- As far as I know, I have to free those List View Data bymyself. How to do this? procedure TMainFrm.LV_DataDeletion(Sender: TObject; Item: TListItem); begin if Item.Data <> nil then begin FreeMem(Item.Data); Item.Data := nil; end; end; Above code not working (why!?), got Invalid Pointer Operation. Could you please tell me how to free this data to avoid memory leak? Thank you in advance, -Pawel

Remy Lebeau Thank you!!! It is working (first method) I will also try the second one. Thank you for very fast response and your knowledge. Best regards, -Pawel

Hi, Here is a problem. I would like to run an application with normal user privileges from elevated process. My installer (elevated process) is written in Delphi. It launches some programs at the end of installation. Now, as Installer is elevated, lauched process is also elevated - we don't want this! The goal is to launch non-elevated process from elevated installer process. So: - Launch any application with normal user privileges - Launch default web browser with given webpage - Send email to given person (with protocol Sendto:) As far as I know it can be done using Windows Explorer process. I couldn't find any Delphi code for that in Internet 😞 I only found C- based. Here is one that suppose to work: https://www.appsloveworld.com/coding/delphi/48/createprocess-with-lower-privileges-than-the-caller Could you please try to convert it into Delphi? I tried, but without success (see below example). There are some problems with pointers (I tried to do pointers typecasting - it compiled, but with access violation)... For example: FindDesktopFolderView(IID_IShellView, spsv); --> FindDesktopFolderView(IID_IShellView, Pointer(spsv)); I am sure, this is not a way I should do. Here is my code in simple project. Source: https://www.dropbox.com/s/6ndno59brgbn6l0/ExecAsUser.zip?dl=1 Thanks in advance, -Pawel

@FredS Thanks... Will try that magic. Many paremeters...

Yup, I am sure there are many different methods. I can not use any that need to pass login data (user name,password). It seems the one I have (unfortunatelly in c) is the simplest. Ps: There is a simple way to do this without complication, just run explorer: ShellExecuteW(0, 'open', 'explorer.exe', PWideChar(AFileNameToRun), '', SW_SHOW); But, this can not send mail with default client... so the best is to run any app with normal user privileges.

@Der schöne Günther Did you read my post? No, my code is not a copy - this is C->Delphi translation. But, not working. I din't write original code! I made delphi code based on linked code. To be clear. -Pawel @DelphiUdIT Thanks, will check that out.

Hey, I would like to ask you guys for some help... I am using now Delphi Community Edition 11.3 with VCL Styles. I downloaded from GetIt Package Manager nice Windows 11 Dark Style (Windows11_Modern_Dark.vsf). I am trying to modify this to my taste... There are few problems... The question is: Why TLabel text (with font color = clWindowText) is painted with White color? I changed this color in Style file(*.vsf) into red (using Bitmap Style Designer) (see the image). I know, I can disable styles for control (by removing seFont -> ExampleLabel.StyleElements := [seClient,seBorder] ) but I want to make it global, for all Tlabels controls (or any other using clWindowText). Is that a bug or am I doing something wrong? How to change controls text in vcl style? The style I am talking about uses White (#FFFFFF) color for text (I think it is to bright for Dark Mode, it should be something like #E7E9EA, for example) Hope, you can help. Thanks in advance.

Thanks! I forgot about that section (I thought it is set automatically, by changing Colors/SysColors)... Stupid me 😛 -Pawel

Hey, I am using Delphi Community Edition 10.4.2. It was working fine. Yesturday it stopped working - I couldn't build any x64 project. I got a message: "Unit 'Vcl.Dialogs' not found" I couldn't solve this issue. I reinstalled Delphi. Installation was successful. Problem was fixed. However, I can not now use batch files to compile my projects using Command line: MSBuild.exe /t:Clean,Build /p:config=Release;DCC_BuildAllUnits=true /p:platform=Win64 "MyjProject.dproj" Delphi Compiler says: This version of the product does not support command line compiling. How is that possible? Before reinstallation of Delphi I could normally build any project using command line! Is is known issue? Maybe I am doing something wrong? Is that possible that new Community Edition Online Installer NOT let using command line compiler? How do you compile dproj projects using command line? Thanks for any tip. -Pawel

Everything is clear now. Thanks for help. Marco Cantu said: "...The command line compiler is not part of Delphi CE. It might have been there by mistake in the past, but it wasn't intended..." -Pawel

Uff! Not good 😞

As far as I know Delphi CE users can not sue support (I may be wrong). I will try to write some email to M. Cantu and will ask directly. -Pawel

I need to make it clear. I could build any of my projects with Delphi Community Edition 10.4.2 before my environement broke. So it was legal and that was functional in free Delphi version. But, when I reinstalled Delphi CE (the same version) it saddenly do not let me use command line compiler! On the same license, the same delphi version and the same Windows installation. This is why I am asking what happended. This is why I requested Delphi CE 10.4.2 users (who can use command line compiler) to send me those file (dcc32.exe). How can it be illegal when Delphi CE is free (I do not sell my programs - it is my hobby). Btw, my dcc32270.dll library is 27.0.40680.4203 -Pawel

This file has no version info.

Why? Community Edition is free!